home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 September / Software of the Month Club 1996 September.iso / mac / Software Research Institute-SRI / Business / Alpha ƒ / Tcl / SystemCode / flags.tcl < prev    next >
Encoding:
Text File  |  1996-01-07  |  3.5 KB  |  158 lines  |  [TEXT/ALFA]
  1.  
  2. set tileWidth [expr $screenWidth - 10]
  3. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  4. set tileHeight [expr $screenHeight - 60]
  5. set defHeight $tileHeight
  6.  
  7. set mar 22
  8. set errorHeight [expr (($tileHeight - $mar) / 3)]
  9. set errorDisp [expr (2 * ($tileHeight - $mar)) / 3]
  10. unset mar
  11.  
  12. set tclvars {}
  13.  
  14. set allFlags ""
  15. set allVars ""
  16.  
  17.  
  18. # The following three procs, together w/ the initialization 
  19. # for the flags below, allow a totally Tcl-controlled menu to 
  20. # shadow Alpha's internal variables.
  21. proc initFlag {var {val ""}} {
  22.     global $var modeVars tclvars allFlags
  23.     if {[lsearch -exact $tclvars $var] < 0} {
  24.         lappend tclvars $var
  25.     }
  26.     linkVar $var
  27.     if {[string length $val]} {set $var $val}
  28.     lappend allFlags $var
  29. }
  30.  
  31. # Called for ordinary tcl global vars we want included in the Flags menu.
  32. proc initTclFlag {flag {val 0} {pname ""}} {
  33.     global $flag allFlags tclvars modeVars tcl_var_procs
  34.     if {[lsearch -exact $tclvars $flag] < 0} {
  35.         lappend tclvars $flag
  36.     }
  37.     if {![info exists $flag]} {set $flag $val}
  38.     lappend allFlags $flag
  39.  
  40.     if {[string length $pname]} {
  41.         set tcl_var_procs($flag) $pname
  42.     }
  43. }
  44.  
  45. # Called for ordinary tcl global vars we want included in the Vars menu.
  46. proc initTclVar {var {val ""} {pname ""}} {
  47.     global $var tclvars modeVars allVars tcl_var_procs
  48.     if {[lsearch -exact $tclvars $var] < 0} {
  49.         lappend tclvars $var
  50.     }
  51.     if {[string length $val]} {
  52.         set $var $val
  53.     }
  54.     if {![info exists $var]} {set $var 0}
  55.     lappend allVars $var
  56.  
  57.     if {[string length $pname]} {
  58.         set tcl_var_procs($var) $pname
  59.     }
  60. }
  61.  
  62. proc initVar {var {val ""}} {
  63.     global $var tclvars modeVars allVars
  64.     if {[lsearch -exact $tclvars $var] < 0} {
  65.         lappend tclvars $var
  66.     }
  67.     linkVar $var
  68.     if {[string length $val]} {
  69.         set $var $val
  70.     }
  71.     lappend allVars $var
  72. }
  73.  
  74. # This file contains methods allowing the shadowing of tcl variables 
  75.  
  76. initFlag autoHScroll
  77. initFlag autoSave
  78. initTclFlag backup
  79. initFlag blinkingCursor
  80. initFlag blockCursor
  81. initFlag coloring
  82. initFlag dragAndDrop
  83. initTclFlag forceMainScreen 1
  84. initFlag horScrollBar 0
  85. initFlag hyperText 1
  86. initTclFlag iconifyOnSwitch
  87. initFlag indentOnCR
  88. initTclFlag infoWindowsDirty 0
  89. initTclFlag intelCutPaste 1
  90. catch {initFlag lockStatus 1}
  91. initFlag moveInsertion
  92. initFlag noShiftBinding
  93. initFlag openAllFiles
  94. initFlag powerThumb
  95. initFlag projectorAware
  96. initTclFlag showEudoraMenu 1 showEudoraMenuProc
  97. initFlag showInvisibles
  98. initFlag sortedIsDefault
  99. initFlag tempMem
  100. initFlag undoOn
  101. initFlag wordWrap
  102.  
  103. initTclVar backExtension "~"
  104. initTclVar backDir
  105. set backDir ""
  106. initVar bottomMargin
  107. initVar changesLim
  108. initVar defaultFont
  109. initVar defHeight
  110. initVar defLeft     2
  111. initVar defTop         40
  112. initVar defWidth
  113. initTclVar diffFlags { }
  114. initVar fillColumn
  115. initVar fontSaving
  116. initVar fontSize
  117. initVar funcExpr
  118. initVar funcPar
  119. initTclVar horMargin 4
  120. initVar leftFillColumn
  121. initVar leftMargin
  122. initTclVar numWinsToTile 2
  123. initVar paraColumn
  124. initVar    printerFont
  125. initVar    printerFontSize
  126. initTclFlag printHeader 1
  127. initTclFlag printHeaderTime 1
  128. initTclFlag printHeaderFullPath 0
  129. initVar savedState
  130. initVar sortColumn
  131. initVar tabSize
  132. initVar tagFile
  133. initTclVar tileHeight
  134. initTclVar tileLeft 2
  135. initTclVar tileMargin 22
  136. initTclVar tileTop
  137. initTclVar tileWidth
  138. initVar topMargin
  139. initVar wordBreak
  140. initVar wordBreakPreface
  141. initVar    wrapBreak
  142. initVar    wrapBreakPreface
  143. initVar    wrapHigh
  144. initVar    wrapLow
  145.  
  146. # Flags that won't appear in the menu.
  147. linkVar numLock
  148. linkVar softWrap
  149.  
  150. # Redefine 'menuHook' to update flags menu.
  151. # proc menuHook {} {
  152. #     uplevel #0 {
  153. #         foreach f $allFlags {
  154. #             markMenuItem flags $f [set $f]
  155. #         }
  156. #     }
  157. # }
  158.